home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wescl100 / main.frm (.txt) < prev    next >
Visual Basic Form  |  1997-03-02  |  2KB  |  69 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "wesCommonLibrary Sample"
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   360
  7.    ClientTop       =   585
  8.    ClientWidth     =   3780
  9.    Height          =   1800
  10.    Left            =   300
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1395
  15.    ScaleWidth      =   3780
  16.    Top             =   240
  17.    Width           =   3900
  18.    Begin VB.CommandButton cmdMain 
  19.       Caption         =   "Center"
  20.       Default         =   -1  'True
  21.       Height          =   375
  22.       Left            =   1260
  23.       TabIndex        =   0
  24.       Top             =   480
  25.       Width           =   1155
  26.    End
  27. Attribute VB_Name = "frmMain"
  28. Attribute VB_Creatable = False
  29. Attribute VB_Exposed = False
  30. ' Written for West End Software, Inc.
  31. ' Copyright 
  32.  1997 Michael L. Jones
  33. ' All Rights Reserved.
  34. ' Warning: This computer program is protected by
  35. ' copyright law and international treaties.
  36. ' Unauthorized reproduction or distribution of this
  37. ' program, or any portion of it, may result in
  38. ' severe civil and criminal penalties, and will be
  39. ' prosecuted to the maximum extent possible under
  40. ' the law.
  41. Option Explicit
  42. ' wesCommonLibrary sample project
  43. ' private constants
  44. Private Const csModName = "frmMain"
  45. ' replace with resource file string if you end up
  46. ' using something like this
  47. Private Const csMsgCenter = _
  48.    "An error occurred centering the form:"
  49. ' events
  50. Private Sub cmdMain_Click()
  51. On Error GoTo CatchError
  52. Const csProcName = csProjName & "." & _
  53.    csModName & ".cmdMain_Click"
  54.    ' center on the screen
  55.    Library.CenterWindow Me
  56.    Exit Sub
  57. CatchError:
  58.    ' replace with you choice of error handling
  59.    ' display an error message
  60.    DisplayError csMsgCenter, Err.Number, _
  61.       Err.Description, csProcName
  62.    Exit Sub
  63. End Sub
  64. Private Sub Form_Unload(Cancel As Integer)
  65. On Error Resume Next
  66.    ' terminate the application
  67.    MainModule.Terminate
  68. End Sub
  69.